10 V$="B:CHSONG.bas 11/29/82    Shirley"
20 ON ERROR GOTO 40
30 GOTO 60
40 PRINT "ERR ERL =";ERR;ERL
50 END
60 '----------------------------------------------------
70 GOSUB 890  : GOSUB 160  ' SILENT
80 GOSUB 680  : GOSUB 160  ' NOEL
90  GOSUB 450  : GOSUB 160 ' SILVER
100 GOSUB 790  : GOSUB 160  ' JOY
110 GOSUB 570  : GOSUB 160  ' DECK
120 GOSUB 270  : GOSUB 160 ' JINGLE
130 GOSUB 370              ' MERRY
140 END
150 '----------------------------------------------------
160 FOR IWAIT=1 TO 3500 : WWWW=1 : NEXT IWAIT
170 RETURN
180 '----------------------------------------------------
190 CLS
200 FOR I= 1 TO 15 : LOCATE I,(40-I) : PRINT STRING$(2*I,CHR$(15)) : NEXT I
210 LOCATE 10,40 : PRINT STRING$(3,CHR$(1))
220 FOR I= 1 TO 4 : LOCATE 15+I,36 : PRINT STRING$(8,CHR$(15)) : NEXT I
230 PRINT S$
240 PRINT " BY SHIRLEY GASICH"
250 RETURN
260 '----------------------------------------------------
270 S$="WE WISH YOU A MERRY CHRISTMAS" : GOSUB 190
280 PLAY "MB T200 "
290 PLAY "O3 L4 CF L8 FGFE L4 DDDG L8 GAGF"
300 PLAY "L4 ECCA L8 AB-AG L4 FD L8 CC L4 DGE"
310 PLAY "l2 F L4 CFFF L2 E L4 EFED L2 C L4 CAGF"
320 PLAY "O4 L4 C O3 L4 C L8 CC L4 DGE L2 F L4 CF"
330 PLAY "L8 FGFE L4 DDDG L8 GAGF L4 ECCA L8 AB-AG"
340 PLAY "L4 FD L8 CC L4 DGE L2 F"
350 RETURN
360 '----------------------------------------------------
370 S$="JINGLE BELLS" : GOSUB 190
380 PLAY "MB T210 "
390 PLAY "O3 L4 EEE P4 EEE P4 EGCD L1 E"
400 PLAY "L4 FFFFFEE L8 EE L4 EDDE L2 D L4 G P4"
410 PLAY "O3 L4 EEE P4 EEE P4 EGCD L1 E"
420 PLAY "L4 FFFFFEE L8 EE L4 GGFD L4 C L1"
430 RETURN
440 '----------------------------------------------------
450 S$="SILVER BELLS" : GOSUB 190
460 PLAY "MB T150 "
470 PLAY "O3 L8 B-G L4 FD L8 B-G L4 FD O4 L8 DC"
480 PLAY "O3 L4 B-GG L2 G O4 L8 C O3 L8 B- L4 AFEE-F."
490 PLAY "L8 E- L4 E- L2 D L8 B-G L4 FD L8 B-G"
500 PLAY "L4 FD O4 L8 DC O3 L4 B-GG L2 G O4 L8 C"
510 PLAY "O3 L8 B- L4 AFEE-F O4 L4 C O3 L2 B-. L8 DE-"
520 PLAY "O3 L2 F L8 GA L2 B- L4 AAB- O4 L4 C O3 L4 B-AB-"
530 PLAY "L2 F L8 DE- L2 F L8 GA L2 B- "
540 PLAY "L4 AAB- O4 L4 C O3 L4 B-A L2 B-."
550 RETURN
560 '----------------------------------------------------
570 S$="DECK THE HALLS" : GOSUB 190
580 PLAY "MB T250"
590 PLAY "O3 L2 D. L4 C O2 L2 BAGABG L4 AB O3 L4 C"
600 PLAY "O2 L4 A L2 B. P4 L4 A L2 GF+G. P4 O3 D."
610 PLAY "L4 C O2 L2 BAGABG L4 AB O3 L4 C O2 L4 A "
620 PLAY "L2 B. P4 L4 A L2 GF+G. P4 A. L4 B O3 L2 C"
630 PLAY "O2 AB. O3 L4 C L2 D O2 A L4 B O3 C L2 D L4 EF+"
640 PLAY "L2 GF+ED. P4 D. L4 C O2 L2 BAGABG L4 AB O3 C O2 A"
650 PLAY "L2 B. P4 L4 A L2 GF+ L1 G"
660 RETURN
670 '----------------------------------------------------
680 S$="NOEL" : GOSUB 190
690 PLAY "MB T100"
700 PLAY "O3 L8 ED L4 C. L8 DEF L2 G L8 AB O4 L4 C"
710 PLAY "O3 BA L2 G L8 AB O4 L4 C O3 BAGAB O4 C"
720 PLAY "O3 GF L2 E L8 ED L4 C. L8 DEF L2 G L8 AB"
730 PLAY "O4 L4 C O3 BA L2 G L8 AB O4 L4 C O3 BAGAB"
740 PLAY "O4 C O3 GF L2 E L8 ED L4 C. L8 DEF L2 G O4 L8 C"
750 PLAY "O3 B L2 A L4 A L2 G. O4 L4 C O3 BAGAB O4 C O3 L4 GF"
760 PLAY "L2 E"
770 RETURN
780 '----------------------------------------------------
790 S$="JOY TO THE WORLD" : GOSUB 190
800 PLAY "MB T200"
810 PLAY "O4 L2 C O3 L4 B. L8 A L2 G. L4 F L2 EDC."
820 PLAY "L4 G L2 A. L4 A L2 B. L4 B O4 L1 C L4 C"
830 PLAY "L4 C O3 BAGG. L8 F L4 E O4 CC O3 BAGG. L8 F "
840 PLAY "L4 EEEEE L8 EF L2 G. L8 FE L4 DDD L8 DE L2 F."
850 PLAY "L8 ED L4 C O4 L2 C O3 L4 AG. L8 F L4 EF L2 ED"
860 PLAY "L1 C"
870 RETURN
880 '----------------------------------------------------
890 S$="SILENT NIGHT" : GOSUB 190
900 PLAY "MB T125"
910 PLAY "O3 L4 C. L8 D L4 C O2 L2 A. O3 L4 C. L8 D"
920 PLAY "L4 C O2 L2 A. O3 G L4 G L2 E.F L4 F L2 C."
930 PLAY "D L4 DF. L8 E L4 DC. L8 D L4 C O2 L2 A. O3 D L4 DF."
940 PLAY "L8 E L4 DC. L8 D L4 C O2 L2 A. O3 G L4 GB-. L8 G"
950 PLAY "L4 E L2 F.A. L4 FC O2 A O3 C. O2 L6 B- L4 G L2 F."
960 RETURN
